home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / qscripts.zip / PCBMARKM.SCR < prev    next >
Text File  |  1992-04-16  |  1KB  |  78 lines
  1. ;
  2. ;  PCBMARKM.SCR
  3. ;  Qmodem 4.5/5.01 script for use with PCBoards using the MarkMail door.
  4. ;
  5. ;  Script edited on 04/02/92
  6. ;
  7. Graphics ANSI
  8. TurnON   8_BIT
  9. TurnOFF  LINEFEED
  10. TurnOFF  XON/XOFF
  11. TurnOFF  NOISE
  12. TurnOFF  MUSIC
  13. TurnON   SCROLL
  14. TurnOFF  PRINT
  15. TurnOFF  ECHO
  16. TurnOFF  SPLIT
  17. TurnOFF  BS_DEL
  18.  
  19. WHEN
  20. TimeOut  30  OUT
  21.  
  22. WHEN  "graphics (Enter)=no?"  "N Q NS^M"
  23. WHEN  "ANSI COLOR"            "^M"
  24.  
  25. Waitfor  "first name"
  26. Delay    5
  27. Send     "Xxxxx Xxxxxx^M"
  28.  
  29. WHEN
  30. WHEN  "(H)elp, More?"        "N^M"
  31. WHEN  "(Enter) to continue?"  "^M"
  32. WHEN  "NO CARRIER"           GONZO
  33. Waitfor  "(Dots will echo)?"
  34. Delay    5
  35. FKey     12   ;Ensure your password is entered in the dialing directory
  36.               ;entry and that your F12 is defined as $PASSWORD^M
  37.  
  38. Waitfor  "Main Board Command?"
  39. Delay    5
  40. Send     "open 3^M"
  41.  
  42. Timeout  600 FINISH
  43.  
  44. Waitfor  "MarkMail Command?"
  45. Exist    C:\Qmodem\Upload\<BBSName>.REP NEXT
  46. GOTO     CONTINUE
  47. NEXT:
  48. Delay    5
  49. Send     "U^M"
  50. Delay    1000
  51. UPLOAD Z C:\Qmodem\Upload\<BBSName>.REP
  52.  
  53. Waitfor  "Markmail Command?"
  54. CONTINUE:
  55. Delay    5
  56. Send     "DG^M"
  57.  
  58. WHEN     "No Messages Found..."  LOGOFF
  59.  
  60. Waitfor  "(Ctrl-X) Aborts Transfer"
  61. DOWNLOAD Z C:\Qmodem\Download\<BBSName>.QW*
  62. GOTO     FINISH
  63.  
  64. LOGOFF:
  65. Waitfor  "Markmail Command?"
  66. DELAY    5
  67. Send     "G^M"
  68.  
  69. FINISH:
  70. Waitfor  "NO CARRIER"
  71. GONZO:
  72. Return
  73.  
  74. OUT:
  75. HANGUP
  76. Waitfor  "NO CARRIER"
  77. Return
  78.